sub cmd_admin {
  my ($self, $user, $name, $email, $msg, %style) = @_;
  opendir (DIR, "commands/admin");
  foreach my $file (sort(grep(!/^\./, readdir(DIR)))) {
    $file = $self->{callback}.".pl" if (exists $self->{callback});
    $cmd = $file;
    $cmd =~ s/.pl//ig;
    if ($msg =~ /^$cmd/i or exists $self->{callback}) {
      open('com',"./commands/admin/$file");
      @comsub=<com>;
      close('com');
      $comsub=join('',@comsub);
      eval($comsub);
    }

  }
  closedir DIR;
  &cmd_smod($self, $user, $name, $email, $msg, %style);
}

1;